home *** CD-ROM | disk | FTP | other *** search
- ;------------------------------------------------------------------------------
- ; .ss.
- ; `²²'
- ; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
- ; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
- ; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
- ; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
- ; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
- ; .sS²°$$$²²°"' d²°'
- ; .$$² .$$'
- ; $$$.,d$$'
- ; `²S$$S²'
- ;------------------------------------------------------------------------------
- ; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
- ;------------------------------------------------------------------------------
- ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
- ;------------------------------------------------------------------------------
-
- Integer INTEGER002
- String STRING001
- String STRING002
- String STRING003
- String STRING004
- String STRING005
- String STRING006
-
- ;------------------------------------------------------------------------------
-
- STRING001 = PPEPath() + "UEDIT.PPE"
- If (Exist(STRING001)) Gosub LABEL001
- Gosub LABEL002
- :LABEL001
- INTEGER002 = FileInf(STRING001, 4)
- If (INTEGER002 == "7150") Then
- Gosub LABEL004
- Else
- Gosub LABEL003
- Endif
- :LABEL002
- Cls
- PrintLn "@X0CERROR! The File UEDIT.PPE Does NOT Exist...@X07"
- Wait
- Gosub LABEL008
- :LABEL003
- Cls
- PrintLn "@X0CERROR! Invalid System File UEDIT.PPE Detected...@X07"
- Wait
- Gosub LABEL008
- :LABEL004
- Cls
- Input "@X09Please enter user's record number?@X07", STRING002
- If (STRING002 == "") Then
- Stop
- Else
- Gosub LABEL005
- Endif
- :LABEL005
- GetAltUser STRING002
- Cls
- PrintLn "@X0BUSER'S NAME IS: @X07" + U_Name()
- Newline
- PrintLn "@X09USER'S SECURITY LEVEL IS: @X07"
- PrintLn U_Sec
- Newline
- PrintLn "@X03USER'S EXPERATION DATE IS: @X07"
- PrintLn U_ExpDate
- Newline
- PrintLn "@X0BUSER'S EXPIRED SECURITY LEVEL IS:@X07 "
- PrintLn U_ExpSec
- Input "@X0EIS THIS THE CORRECT USER?@X07", STRING003
- Select Case (STRING003)
- Case "y"
- Gosub LABEL006
- Case "Y"
- Gosub LABEL006
- Case " "
- Stop
- Case Else
- Gosub LABEL004
- End Select
- :LABEL006
- Cls
- STRING004 = U_ExpSec
- Newline
- PrintLn "@X0ATHE USER'S CURRENT EXPIRED SECURITY LEVEL IS: @X07"
- PrintLn U_ExpSec
- Newline
- Input "@X0CWHAT DO YOU WANT TO CHANGE IT TO? @X07", STRING005
- If (STRING005 == " ") Then
- Stop
- Else
- U_ExpSec = STRING005
- Delay 20
- Newline
- PrintLn "@X0BTHE USER'S EXPIRED SECURITY HAS BEEN CHANGED TO:@X07 "
- PrintLn U_ExpSec
- Newline
- Endif
- Input "@X0CIS THIS WHAT YOU WANTED?@X07", STRING006
- Select Case (STRING006)
- Case "Y"
- Goto LABEL007
- Case "y"
- Goto LABEL007
- Case Else
- Gosub LABEL004
- End Select
- :LABEL007
- FAppend 1, PPEPath() + "UEDIT.LOG", 1, 0
- FPutLn 1, "DATE: ", Date(), " TIME: ", Time()
- FPutLn 1, "USER: ", U_Name(), " (", STRING002, ")"
- FPutLn 1, "ITEM CHANGED: Expired Security Level"
- FPutLn 1, "TO: ", STRING005, " FROM: ", STRING004
- FPutLn 1, "-------------------------"
- FClose 1
- :LABEL008
- PutUser
- Stop
-
- ;------------------------------------------------------------------------------
- ;
- ; Usage report (before postprocessing)
- ;
- ; ■ Statements used :
- ;
- ; 5 Cls
- ; 2 Wait
- ; 18 Goto
- ; 4 Let
- ; 13 PrintLn
- ; 9 If
- ; 4 Input
- ; 1 FAppend
- ; 1 FClose
- ; 5 FPutLn
- ; 1 PutUser
- ; 11 Gosub
- ; 1 Delay
- ; 7 Newline
- ; 4 Stop
- ; 1 GetAltUser
- ;
- ;
- ; ■ Functions used :
- ;
- ; 3 +
- ; 8 ==
- ; 8 !
- ; 1 Date()
- ; 1 Time()
- ; 2 U_Name()
- ; 2 PPEPath()
- ; 1 Exist()
- ; 1 FileInf()
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Analysis flags : WR
- ;
- ; W - Write user ■ 5
- ; Program writes a user record. Although this may be normal for a
- ; User Editor, it may also be a way to modify an account level.
- ; ■ Search for : PUTUSER
- ;
- ; R - Read user ■ 5
- ; User records are read, this may signify that someone wants to get
- ; various informations about a user (for example his password), but
- ; this may also be normal for a program accessing user records (for
- ; example a User Editor)
- ; ■ Search for : GETALTUSER
- ;
- ;------------------------------------------------------------------------------
- ;
- ; Postprocessing report
- ;
- ; 0 For/Next
- ; 0 While/EndWhile
- ; 3 If/Then or If/Then/Else
- ; 2 Select Case
- ;
- ;------------------------------------------------------------------------------
- ; AEGiS Corp - Break the routines, code against the machines!
- ;------------------------------------------------------------------------------
-